home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1991: Code Warrior / bincue / Code Warrior.bin / Development Platforms (Moof!) / LISP Related / Goal-Plan-Code Editor / library / my-extensions.lisp < prev    next >
Encoding:
Text File  |  1990-07-06  |  3.0 KB  |  78 lines  |  [TEXT/CCL ]
  1.  
  2. ;=====================================================================
  3. ; 
  4. ;  GPC Editor
  5. ;
  6. ;  Name: my-extensions.lisp
  7. ;  
  8. ;  Lisp extensions used in the Goal Plan Code editor.
  9. ;
  10. ;---------------------------------------------------------------------
  11. ; Date        Name  Comments   
  12. ;---------------------------------------------------------------------
  13. ; 10/12/88    lhh   Initial Documentation
  14. ; 10/13/88    lhh   "Lispizing" of Documentation
  15. ;=====================================================================
  16.  
  17. ;;; Load in the initial set of files and set *modules*
  18. (provide 'my-extensions)
  19. (require 'fred-extensions) ;a few cheap hacks like C-x o = other win
  20. (require 'keymacros)       ;mvmt+sel keys, winmnager,comment boxes, history
  21.  
  22. ;overview Binds things defined in KEYMACROS. BInds Funckeys. 
  23.  
  24. ;;;line-by-line history.  BUG: It skips command lines exactly one line above
  25. ;;;the current command line when moving up, but one can move back down to them.
  26. (comtab-set-key *listener-comtab* '(:meta #\uparrow)
  27.                 #'(lambda () (to-nearest-cmnd-line :up))
  28.                 "Moves up one command line.")
  29. (comtab-set-key *listener-comtab* '(:meta #\downarrow)
  30.                 #'(lambda () (to-nearest-cmnd-line :down))
  31.                 "Moves down one command line.")
  32.  
  33.  
  34. ;;;rotate the list of windows through the front position.
  35. (def-fred-command (:control #\uparrow) up-a-window)
  36. (def-fred-command (:control #\downarrow) down-a-window)
  37.  
  38. ;;;do function keys as parts of control-p-comtab
  39. (comtab-set-key *comtab* (code-char 16)
  40.                 #'(lambda () 
  41.                     (funkey-despatch (ldb (byte 8 8) 
  42.                                           (rref *current-event* event.message)))))
  43.  
  44.  
  45.  
  46. ;;;switch the enter and control-x-control-c keys, and return and control-return keys
  47. (def-fred-command #\return ccl::ed-newline-and-indent)
  48. (def-fred-command (:control #\return) ccl::ed-self-insert)
  49.  
  50. ;;;comment posters for 5 levels
  51. ;
  52. ;?????
  53. ;   why 5 levels? why not 6? or 1?
  54. ;?????
  55. (comtab-set-key *control-x-comtab* #\1 #'(lambda () (comment-graphics 1)))
  56. (comtab-set-key *control-x-comtab* #\2 #'(lambda () (comment-graphics 2)))
  57. (comtab-set-key *control-x-comtab* #\3 #'(lambda () (comment-graphics 3)))
  58. (comtab-set-key *control-x-comtab* #\4 #'(lambda () (comment-graphics 4)))
  59. (comtab-set-key *control-x-comtab* #\5 #'(lambda () (comment-graphics 5)))
  60.  
  61.  
  62. (when (find :window-stacker *features*)
  63.   (comtab-set-key *control-p-comtab* #\5 
  64.                   #'(lambda () (push-window))
  65.                   "F5 - push-window")
  66.   (comtab-set-key *control-p-comtab* #\6 
  67.                   #'(lambda () (pull-window))
  68.                   "F6 - pull-window")
  69.   (comtab-set-key *control-p-comtab* #\7 
  70.                   #'(lambda () (flip-window-stack))
  71.                   "F7 - flip-window-stack")
  72.   (comtab-set-key *control-p-comtab* #\8 
  73.                   #'(lambda () (clean-up-window-stack))
  74.                   "F8 - clean-up-window-stack"))
  75.  
  76. ;;; add the features defined in this file to the global set of features provided
  77. ;;; by this implementation
  78. (pushnew :my-extensions *features*)